home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr48
/
ppascal.zip
/
SIREN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-04-24
|
1KB
|
59 lines
program sirensound;
{ imitates the sound of a police siren }
uses crt;
var
ch:char;
x,y:integer;
begin { program sirensound }
repeat
for y:=1 to 2 do
begin
for x:=320 to 600 do { go up slow }
begin
sound(x);
delay(x div 50);
end;
delay (200);
for x:=600 downto 320 do { go down slow }
begin
sound(x);
delay(x div 50);
end;
if keypressed then
begin
nosound;
halt(1);
end;
end;
for y:=1 to 12 do
begin
for x:=160 to 300 do { go up fast }
begin
sound(2*x);
delay(1);
end;
delay (20);
for x:=300 downto 160 do { go down fast }
begin
sound(2*x);
delay(1);
end;
If y = 12 then delay(100);
if keypressed then
begin
nosound;
halt(1);
end;
end;
until keypressed;
nosound;
end. { program sirensound }